#!/usr/bin/perl
use DBI qw(:sql_types);
require "prefs.pl";

my $dbh = DBI->connect("dbi:SQLite:$db_filename");
if ($ARGV[0] eq "") {exit};
$rc  = $dbh->begin_work;
$sth = $dbh->prepare(qq{INSERT INTO domains (name) VALUES (?)});
$sth->execute($ARGV[0]);
$rc  = $dbh->commit;
$rc  = $dbh->disconnect;
